0 GOTO10000:REM "$0:*=P"
7 SYS65418:K=PEEK(45)+PEEK(46)*256:A=K-911:P=K-825:SYSA:T$(0)=",8":T$(1)=",8,1"
8 LN$="[192][192][192][192][192][192][192][192][192][192]":LN$="[150]"+LN$+LN$+LN$+LN$
9 POKE53280,12:POKE53281,0:Y=1:R$(0)="":R$(1)="[146][154]":X(0)=2:X(1)=22
12 READN:N=N-1:DIMS(N),F$(N),T(N),E$(N):FORI=0TON:READS(I),F$(I),T(I),E$(I):NEXT
15 PRINT"[147]"CHR$(9)CHR$(142)CHR$(8):Y=0:SYSP,14,0:PRINT"[154][213][178][201][213][192][201][213][201][201][213] [201]"
18 SYSP,14,1:PRINT"[221][221][221][171][192] [221][221][221][221] [221]"
21 SYSP,14,2:PRINT"[156][202] [203][202][192][203][202][202][203][202][192][203]":MX=15:IFMX>(N-G)THENMX=N-G
24 SYSP,8,4:PRINT"CREATED BY:  ROCKY MOORE":R=1:SYSP,0,8:PRINTLN$
25 SYSP,2,6:PRINT"[159]KLAMATH FALLS OR. USER GROUP LIBRARY"
27 FORY=0TOMX:GOSUB57:NEXT:Y=0:SYSP,5,22:PRINT"[156]USE CURSOR KEY TO MOVE CURSOR"
28 SYSP,0,21:PRINTLN$
30 I=23:IFN>MXTHENI=24:SYSP,4,23:PRINT"[158]PRESS THE [N] KEY FOR NEXT PAGE"
33 SYSP,6,I:PRINT"[159]PRESS [RETURN] TO LOAD FILE":POKE198,0
36 R=(R+1)*-(R<1):GOSUB57:T=0
39 GETA$:T=T+1:IFA$=""ANDT<20THEN39
42 IFA$=""THENR=1:GOSUB57:Y=Y+1:GOSUB60:GOTO36
43 IFA$=""ANDY+8<MX+1THENR=1:GOSUB57:Y=Y+8:GOSUB60:GOTO36
45 IFA$="[145]"THENR=1:GOSUB57:Y=Y-1:GOSUB60:GOTO36
46 IFA$="[157]"ANDY-8=>0THENR=1:GOSUB57:Y=Y-8:GOSUB60:GOTO36
48 IFA$="N"THENG=(G+16)*-(G<=N-16):GOTO15
51 IFA$=CHR$(13)THEN69
54 GOTO36
57 RL=Y-(8*-(Y=>8)):SYSP,X(-(Y=>8)),RL+11:PRINTR$(R);LEFT$(F$(Y+G),16):RETURN
60 IFY>MXTHENY=0
63 IFY<0THENY=MX
66 RETURN
69 IFS(Y+G)THENSYS52463
72 PRINT"[147]LOAD";CHR$(34);F$(Y+G);CHR$(34);T$(T(Y+G)):PRINT"";E$(Y+G);CHR$(9);""
75 POKE631,13:POKE632,13:POKE198,2:END
78 :
98 :
99 REM 0=NO WARP/DRIVE   0= ",8"
100 DATA 1 :REM NUMBER OF FILENAMES
101 DATA 1,"FILENAME",0,"RUN"
299 :
300 OPEN1,8,15,"I0":PRINT#1,"S: MENU":CLOSE1:SAVE" MENU",8:VERIFY" MENU",8
400 A$="MENU CREATOR":OPEN1,8,15,"I0":PRINT#1,"S:";A$:CLOSE1:SAVEA$,8:VERIFYA$,8:END
10000 POKE53280,44:POKE53281,54:POKE646,44
10001 NK=PEEK(45)+PEEK(46)*256-871:PRINT"[147]               BUILD MENU[146]"
10010 PRINT" INSERT DESTINATION DISK AND THEN PRESS
10020 [153]" THE [RETURN] KEY TO CONTINUE":[151]49154,0
10030 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177][199](13)[167]10030
10040 [159]1,8,15,"I"::[132]1,E,E$,T,S:[160]1:[139]E[178]0[167][158]NK:FP[178]20484:[137]10060
10050 [153]" DISK ERROR:"E","E$","T","S:[128]
10060 [139][194](FP)[167]FP[178]FP[170]1:[137]10060
10065 [137]10075
10070 FP[178][194](49152)[170][194](49153)[172]256
10075 A$[178]"":CO[178]0:FP[178]FP[170]3::LI[178][194](FP)[170][194](FP[170]1)[172]256:FP[178]FP[170]2
10080 CH[178][194](FP):[139]CH[179][177]34[175]CH[167]FP[178]FP[170]1:[137]10080
10090 A$[178]A$[170][199](CH):FP[178]FP[170]1:CH[178][194](FP):[139]CH[179][177]34[175]CH[167]10090
10095 A$[178]A$[170][199](34):[139]CH[178]0[167]10210
10100 FP[178]FP[170]1:CH[178][194](FP):[139]CH[167]10100
10110 WD[178]1:SA[178]0:SS$[178]"RUN":[153]"LOAD BLOCK SIZEWAIT:"LI:[153]" FILENAMEWAIT: ";A$
10120 AN$[178]"Y":[133]" KEEP THIS FILENAME (YWAIT/NWAIT)  YCMDCMDCMD";AN$
10130 [151]198,0:[139][200](AN$,1)[179][177]"N"[167]10145
10135 [133]" ARE YOU SURE (YWAIT/NWAIT/)  NCMDCMDCMD";AN$:[139][200](AN$,1)[178]"Y"[167]10075
10140 [137]10110
10145 NF[178][194](49154)[170]1:[151]49154,NF:Q$[178][199](34)
10150 [133]" WARP/DRIVE (YWAIT/NWAIT)  YCMDCMDCMD";AN$:[139][200](AN$,1)[178]"N"[167]WD[178]0
10160 AN$[178]"N":[133]" LOAD WITH ',8,1' (YWAIT/NWAIT)  NCMDCMDCMD";AN$
10170 [139][200](AN$,1)[178]"Y"[167]SA[178]1
10180 [133]" STARTING STATEMENT  RUNCMDCMDCMDCMDCMD";SS$
10190 [153]"LOAD";[202]([196](100[170]NF),2);"DATA";WD;"CMD,";A$;",";SA;"CMD,";Q$;SS$;Q$
10195 MS[178][181](FP[173]256):LS[178]FP[171]MS[172]256:[151]49152,LS:[151]49153,MS
10200 [153]"G(null)10070":[151]631,13:[151]632,13:[151]198,2:[128]
10210 :[151]2,0:[143]                             *DELETE READ PART OF MENU *
10220 N[178][194](2):[151]2,N[170]1:N1[178]N[172]5[170]10000:[139]N1[177]10210[167]10240
10230 [153]"LOAD"[202]([196](N1),2):[153]"G(null)10220":[151]631,13:[151]632,13:[151]198,2:[128]
10240 [153]"LOAD":[129]I[178]0[164]4:[153][202]([196](I[172]10[170]10220),2):[130]:[153]"0REM"
10250 [153]"100DATN"[194](49154)":REM NUMBER FILENAMES":[153]"400":[153]"RUN300"
10260 [129]I[178]0[164]7:[151]631[170]I,13:[130]:[151]198,8:[128]